home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / geoCom.lnx / SID-DEMO 5_com (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  3.9 KB  |  69 lines

  1. sid-demo 5_COM
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.0
  4. GEOwRITE    v2.1
  5. {$60} qUELLTEXT ZUR GEOcom-dEMODISKETTE {$60}
  6. {$60} (C)94 by denis d\hler/falk rehwagen{$60}
  7. {$60} dIE dEMODISKETTE KANN KOSTENLOS ANGEFORDERT {$60}
  8. {$60} WERDEN BEI: {$60}
  9. {$60} guss, dENIS d{$7c}HLER , gORKISTR.18 , 04347 lEIPZIG {$60}
  10. name"sid-demo 5" : class"sid-dEMO 5  v1.0" : author"dENIS d{$7c}HLER"
  11. startflag$40
  12. bytevarE,A,D,SU,R,C,FF,FR,ML,HI,LO,
  13. intvarZ{$7b}HLER,F,M,P
  14. labelUMSCHALTEN,TASTE,END,L{$7c}SCHEN,GL{$7c}CK,OBOE,SPINETT,BANJO,FEDER,SCHU{$7e},STROM,FLUGZEUG
  15. L{$7c}SCHEN : cls : pattern1 : rect(dbl78,0),167,(dbl258,0),193 : pattern0
  16. rect(dbl70,0),159,(dbl250,0),185 : frame(dbl70,0),159,(dbl250,0),185
  17. setpos(dbl80,0),169 : print"/bsid-dEMO 5/p -(W) '93 dENIS d{$7c}HLER"
  18. setpos(dbl80,0),180 : print"04347 lEIPZIG        gORKISTR.18"
  19. rect(dbl2,0),2,(dbl317,0),139 : frame(dbl2,0),2,(dbl317,0),139
  20. setpos(dbl10,0),15 : print"/pdIESES pROGRAMM ZEIGT DIE sid - pROGRAMMIERUNG UNTER geos "
  21. setpos(dbl10,0),25 : print"UND GEOcOM ! dREHEN sIE DAZU BITTE iHREN lAUTST{$7b}RKE-REGLER AUF !"
  22. setpos(dbl10,0),35 : print"wENN sIE HIER EINE BELIEBIGE tASTE DR{$7d}CKEN, WIRD DER tON "
  23. setpos(dbl10,0),45 : print"WIEDERHOLT. eS HANDELT SICH HIERBEI UM  : "
  24. setpos(dbl15,0),70 : print"/biNSTRUMENTE UND gER{$7b}USCHE"
  25. setpos(dbl20,0),90 : print"/pf1 = gL{$7c}CKCHEN" : setpos(dbl120,0),90 : print"f2 = oBOE"
  26. setpos(dbl220,0),90 : print"f3 = sPINETT" : setpos(dbl20,0),100 : print"f4 = bANJO"
  27. setpos(dbl120,0),100 : print"f5 = fEDER" : setpos(dbl220,0),100 : print"f6 = sCHU{$7e}"
  28. setpos(dbl20,0),110 : print"f7 = sTARKSTROM-BRUMMEN" : setpos(dbl220,0),110 : print"f8 = d{$7d}SENFLUGZEUG"
  29. setpos(dbl20,0),130 : print"/bmIT /80 q KOMMEN sIE ZUM dESKTOP !"
  30. GL{$7c}CK
  31. @UMSCHALTEN
  32. initio : poke54277,A : poke54278,SU : poke54274,((byteatP) and 255)
  33. poke54275,R : poke54272,LO : poke 54273,HI : poke54294,FF
  34. poke54295,FR : poke54296,ML : poke54276,(Cor1)
  35. Z{$7b}HLER = 0 : repeat : incZ{$7b}HLER : until (Z{$7b}HLER == M)
  36. poke54276,(Cand254) : doneio
  37. on 0 goto TASTE : mainloop 
  38. L{$7c}SCHEN : end
  39. @TASTE
  40. if (KEYDATA == $F1) : goto END : endif 
  41. if (KEYDATA == $01) : GL{$7c}CK : endif
  42. if (KEYDATA == $02) : OBOE: endif 
  43. if (KEYDATA == $03) : SPINETT : endif
  44. if (KEYDATA == $04) : BANJO : endif 
  45. if (KEYDATA==$05) : FEDER : endif
  46. if (KEYDATA == $06) : SCHU{$7e} : endif
  47. if (KEYDATA==$0E) : STROM : endif
  48. if (KEYDATA == $0F) : FLUGZEUG : endif : goto UMSCHALTEN
  49. @L{$7c}SCHEN
  50. Z{$7b}HLER = 24 : repeat : initio :poke(54272+Z{$7b}HLER),0
  51. doneio : decZ{$7b}HLER : until (Z{$7b}HLER ==0)
  52. return
  53. @GL{$7c}CK
  54. L{$7c}SCHEN:A=10:SU=10:R=0:C=16:HI=156:LO=64:P=2100:M=100:FF=50:FR=0:ML=15:return
  55. @OBOE
  56. L{$7c}SCHEN:A=135:SU=168:R=0:C=16:HI=29:LO=76:P=250:M=500:FF=50:FR=0:ML=15:return
  57. @SPINETT
  58. L{$7c}SCHEN:A=9:SU=0:R=0:C=32:HI=23:LO=72:P=250:M=350:FF=50:FR=0:ML=15:return
  59. @BANJO
  60. L{$7c}SCHEN:A=8:SU=8:R=0:C=32:HI=29:LO=76:P=0:M=30:FF=50:FR=241:ML=111:return
  61. @FEDER
  62. L{$7c}SCHEN:A=8:SU=9:R=0:C=32:HI=2:LO=238:P=0:M=35:FF=0:FR=0:ML=15:return
  63. @SCHU{$7e}
  64. L{$7c}SCHEN:A=8:SU=10:R=0:C=128:HI=39:LO=16:P=0:M=50:FF=0:FR=0:ML=15:return
  65. @STROM
  66. L{$7c}SCHEN:A=0:SU=240:R=0:C=128:HI=0:LO=100:P=0:M=2000:FF=0:FR=0:ML=15:return
  67. @FLUGZEUG
  68. L{$7c}SCHEN:A=0:SU=253:R=13:C=128:HI=11:LO=184:P=0:M=3000:FF=50:FR=241:ML=31:return
  69.